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BASSCHR 1d-sep=1986 00:07:37: VAKe11 BLiss-32 v4.0-7% p : 
eaeeen ake FTkciz> | eaNsAT tae teaschn O3oe age it) 


MODULE BASSCHR ( ' return unsigned byte as 1 char strin 
IDENT = "1-004" Filer BAscHh Be”. . 
+ 4 


BEGIN 


' 
'eeeeeeeteeeeeeeeeeeeeeeeeeeeteteeeeeeeteeeeeeeeeeeetenetereretereneeeeeReres 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

ON OF THE T E. THIS SOFTWARE OR ANY OTHER 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
: PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


& 
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* 
© 
® 
« 
T oa 
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!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i CORPORAT tie NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
Seonediededneensednideianehansibbdesneenebeseunostenaonensteeeseenteennenenet 
i 
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'e¢ 
i FACILITY: BASIC support Library 
i ABSTRACT: 


WN | O CONAUNE WN $0 ODVNAUS UNO OC 


Ww 
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! 
' 
' 

5 ‘ 

$ : Return unsigned byte integer as a one byte string 

4 3H ENVIRONMENT: User mode, AST level or not or mixed 

9 9040 AUTHOR: R. Will, CREATION DATE: 23-Feb-79 

¢ 0048 MODIFIED BY: 

4 0044 i R. Will, 23-Feb-79: VERSION 01 

45 0045 ! 01 - origina 

46 Bose ! 1-002 = Change FILL_CHAR to STRSK_FILL_ CHAR. JBS 09-APR-1979 

47 B08 ! 1-003 = Rename from BASSCHAR to BASSCHR. RW 21-MAY-79 

re Re8 : 1-004 = String cleanup. Don't use SSTR$ macros. 26-Oct-79 

50 0080 ' <BLF /PAGE> 


- a = 


Page 
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ASSCHR 16-Sep-19 :07:37 AX-11 Bliss-32 V4.0-74 
80s 4 198e Bere LOAsRTic sre BASCHR B32: (25 


14-Sep- 
' 


i SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


LINKAGES: 


REQUIRE *RTLIN:STRLNK*; ! Use require file with string Linkage 
1 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSCHR : NOVALUE; ! Return integer as one char string 


INCLUDE FILES: 
REQUIRE "RTLIN:RTLPSECT’; ' Declare PSECTS code 


i MACROS: NONE 
i EQUATED SYMBOLS: NONE 


PSECT DECLARATIONS 


DECLARE _PSECTS (BAS); 
'‘ 


OWN STORAGE: NONE 


i EXTERNAL REFERENCES 
EXTERNAL ROUTINE STRSCOPY_R_R8& : STRSJSB_COPY_R; ! copy to dest string 


ee ee eee ee ee ee eee 
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BASECHR 1S-Sep-1984 00:07:57 yayctt BL iag-52 v4.0-742 


1 GLOBAL ROUTINE BASSCHR ( : inyoger to a 1 char string 
¢ DEST_DESC, ! Pointer to dest str desc 
INTEGER) : NOVALUE = ! Pointer to integer value 


ee 
' FUNCTIONAL DESCRIPTION: 
Return > pyte integer \should this be signed. error if neg\ 
as a one byte 8=bit ASCII string according to the semantics of the 
destination string. Range of input byte is 0 through 255. 
Since output string is first argument, this can be called as either 
a@ subroutine of two arguments, or a string function of one argument. 
FORMAL PARAMETERS: 


DEST DESC. wt.dx pointer to destination string descriptor 
INTEGER. rbu.v value of ASCII integer 


: IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUES: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


uw 
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08 

09 This routine JSBs to STRSCOPYSR_R8& and therefore may signal any 
10 of its errors or return any of its statuses. It may also 

11 allocate or deallocate space for the destination string, and 

1 lock that string from being written for a period of time. 

14 a 

15 

1 BEGIN 

1 

18 AP 

19 DEST_DESC: REF BLOCK (8, BYTE), 

$9 INTEGER : BYTE; 

$5 prescopy Ane (DEST_DESC (0,0,0,0], 1, INTEGER); ! create the string 
24 ND; !End of BASSCHR 


-TITLE BASSCHR 
IDENT \1-004\ 


.EXTRN STRSCOPY_R_RS 
-PSECT _BASSCODE,NOWRT, SHR, PIC.2 


SS 
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agen ESSA Q0:OZ:27 WALSH, Shea ud Os rage «.$ 
orf sENTRY BASSCHR, Save R2,R3,R4,R5,R6,R7,RB 3 0377 
ret) ae he be 
000000006 06 16 00 ISB" SFRSCOPY A R_RB : 

| RET 3 0424 


3 Routine Size: 20 bytes, Routine Base: _BASSCODE + ie 


a Ce ee 


Co 


‘§e0c"* IESSOcHGEE QP:QU:ET WARSI Lissa. vO 


150 5 1 END ‘End of module 
124 $258 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 20 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASCHR/OBJ=OBJ$:BASCHR MSRC$:BASCHR/UPDATE=(ENH$:BASCHR) 


; Sizer 20 code + 0 data bytes 
00:02.5 


pie F 
hey 00:06.6 
Lines/CPU ‘ata 10183 
Lexenes/CPU-Min: 32605 
"Y Used: 23 pages 
ove ation Complete 
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